Online Today 2000 January/Onto0100.iso/pc/Browser/HTML Kurse/selfhtml/ytriangs.dcr/00007.ls

Text File | 1999-10-14 | 557 b | 25 lines

on mouseDown
  repeat while the mouseDown
    set x to random(4)
    set me to the clickOn
    set the castNum of sprite me to x
    set the constraint of sprite me to the castNum of sprite me
    set the trails of sprite me to 0
    set the locH of sprite me to random(640)
    set the locV of sprite me to random(440)
    set newColor to random(255)
    set the foreColor of sprite me to newColor
    set newColor to the foreColor of sprite me
    updateStage()
  end repeat
  updateStage()
end

on mouseUp
  go("b")
end

on exitFrame
  go(the frame)
end